1 REM TURTLE-DEMO: 'SCHNEE'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
20 INPUT"ITERATIONSTIEFE   3[157][157][157]";IT:IFIT>4THEN20
30 !GRAPHICS:!INIT:LE=160
40 !PEN0:!MOVE(320-LE)/2,150:!ANGLE330:!PEN1
50 GOSUB100:!TURNR120:GOSUB100:!TURNR120:GOSUB100
60 POKE198,.:WAIT198,1:POKE198,.:END
100 IE=IE+1:IFIE>ITTHEN:!WALKLE:GOTO200
110 !PUSHLE:LE=LE/3
120 GOSUB100
130 !TURNL60
140 GOSUB100
150 !TURNR120
160 GOSUB100
170 !TURNL60
180 GOSUB100
190 !PULLLE
200 IE=IE-1:RETURN